home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / wccode / jackpot3.wcx (.txt) < prev    next >
Wildcat! WCX  |  1995-03-09  |  3KB  |  107 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  2582 bytes  01/31/123  10:08:44pm
  3. '! Code Segment Size  :1636 bytes
  4. '! Data Segment Size  :4511 bytes
  5. '! String Segment Size:946 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim i4463 As Integer
  9.       Dim i4465 As Integer
  10.       Dim i4467 As Integer
  11.       Dim i4469(0 To 4) As Integer
  12.       Dim s4479(0 To 4) As String*1
  13.       Dim s4484(0 To 4) As String*1
  14.       Dim i4489 As Integer
  15.       Dim s4491(0 To 4) As String
  16.  
  17.       Dim l65500_ As Long
  18.       Dim i65504_ As Integer
  19.       Dim l65506_ As Long
  20.       Dim i65510_ As Integer
  21.       Dim l65512_ As Long
  22.       Dim i65516_ As Integer
  23.       Dim l65518_ As Long
  24.       Dim i65522_ As Integer
  25.       Dim l65524_ As Long
  26.       Dim i65528_ As Integer
  27.       Dim l65530_ As Long
  28.       Dim i65534_ As Integer
  29.  
  30.       Cls 
  31.       Print "@0D@WcJackpot 3.0  @0E@■  @0F@Tacoma, WA"
  32.       Print
  33.       Print "     @19@┌──────────────────────────────@10@┐@0F@"
  34.       Print "     @19@│@1E@        In Memory of:         @10@│@0F@"
  35.       Print "     @19@│@1E@    @1C@Starship USS Sapphire @1E@    @10@│@0F@"
  36.       Print "     @19@│@1E@       @12@ 10/93 - 12/94@1E@         @10@│@0F@"
  37.       Print "     @19@│@1E@ David Lechnyr, Fleet Admiral @10@│@0F@"
  38.       Print "     @19@└@10@──────────────────────────────┘@0F@"
  39.       Print
  40.       Print "@07@To boldy go where no BBS has gone before...@0F@"
  41.       Print
  42.       Print
  43.       Print "@0E@Wager is 5 minutes with a maximum return of 15"
  44.       If Not InputYesNo("@0B@Would you like to play the Starfleet Lottery today?@0E@ ", 1213417543) Then
  45.       Else
  46.   159   Print "Enter the five digits you think the Security Guard will select: ";
  47.   188   For i4465 = 0 To 4 Step 1
  48.           Do
  49.   238       s4479(i4465) = InKey(1213417543)
  50.           Loop Until s4479(i4465) > ""
  51.           Print s4479(i4465);
  52.           s4484(i4465) = s4479(i4465)
  53.         Next
  54.   416   Print
  55.         Print "@0C@"; Chr(34); "Hmmm..."; Chr(34); "@03@ the Security Guard says.  @0C@"; Chr(34); "Let's see..."; Chr(34); "@03@  He chooses : @0A@";
  56.   503   For i4465 = 0 To 4 Step 1
  57.           i4469(i4465) = Rnd * 10 Mod 10
  58.           s4491(i4465) = Str(i4469(i4465))
  59.           Print i4469(i4465);
  60.         Next
  61.   713   Print "@0D@"
  62.         Print
  63.         i4465 = 0
  64.   750   For i4489 = 0 To 4 Step 1
  65.   820     For i4467 = 0 To 4 Step 1
  66.             If s4479(i4467) <> "!" Then
  67.               If Val(s4479(i4467)) = i4469(i4489) Then
  68.                 i4465 = i4465 + 1
  69.                 s4479(i4467) = "!"
  70.               End If
  71.             End If
  72.  1020     Next
  73.  1043   Next
  74.  1066   i4463 = 0
  75.  1092   For i4489 = 0 To 4 Step 1
  76.  1162     For i4467 = 0 To 4 Step 1
  77.             If s4491(i4467) <> "!" Then
  78.               If s4491(i4467) = s4484(i4489) Then
  79.                 i4463 = i4463 + 1
  80.                 s4491(i4467) = "!"
  81.               End If
  82.             End If
  83.  1362     Next
  84.  1385   Next
  85.  1408   If i4465 > i4463 Then
  86.           i4465 = i4463
  87.         End If
  88.  1436   If i4465 = 1 Then
  89.           Print "You got "; i4465; " digit right!  You won 3 minutes!"
  90.           AddTime 3
  91.         Else
  92.  1485     If i4465 > 1 Then
  93.             i4467 = i4465 * 3
  94.             Print "Congratulations!  You got "; i4465; " digits right!  You won "; i4467; " minutes!"
  95.             AddTime i4467
  96.           Else
  97.  1565       If i4465 = 0 Then
  98.               Print "Sorry, you didn't get any matching digits!  Decreasing time by 5 minutes."
  99.               AddTime - 5
  100.             End If
  101.           End If
  102.         End If
  103.  1595   Print "@09@Time left on Sapphire BBS: @0E@"; TimeLeft
  104.         WaitEnter 
  105.       End If
  106.  1612
  107.